home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 187 / 187.d81 / b.unpacker 2000 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  70 lines
  1. 10 rem unpacker 2000 demo
  2. 15 rem by dennis hildreth
  3. 20 poke56,32:clr:poke53371,0:poke53281,0:poke53280,0:print"[147]"
  4. 30 dv=peek(186):ifdv<8thendv=8
  5. 40 sys57812"mouse2.1 jr 2000",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  6. 45 ml=8192
  7. 50 m$="[204]oading [213][206][208][193][195][203][197][210].99":gosub500
  8. 55 gosub600:ifa$="q"then40000
  9. 60 sys57812"unpacker.99",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  10. 70 sys51462,"wally.shp",dv,224,204:sys51459
  11. 75 sysml+135,55296,56296,32568
  12. 80 gosub600
  13. 90 sys51459
  14. 110 m$="[196]isplaying picture again":gosub500
  15. 120 gosub600:ifa$="q"then40000
  16. 130 poke252,224:poke253,204:sys51459:gosub600
  17. 135 sys51459
  18. 140 m$="[205]ulti-color is now turned on":gosub500
  19. 150 gosub600:ifa$="q"then40000
  20. 155 poke252,224:poke253,204
  21. 160 sys51459:poke53270,peek(53270)or16
  22. 170 gosub600
  23. 180 sys51459:poke53270,peek(53270)and239
  24. 190 m$="[195]olor [210][193][205] is restored":gosub500
  25. 200 gosub600:ifa$="q"then40000
  26. 205 poke252,224:poke253,204:sys51459
  27. 210 poke53270,peek(53270)or16:sysml+135,32568,33568,55296
  28. 220 gosub600
  29. 230 sys51459:poke53270,peek(53270)and239
  30. 240 m$="[204]oading unpacker 2000":gosub500
  31. 250 gosub600:ifa$="q"then40000
  32. 260 sys57812"unpacker 2000 c9",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  33. 270 sys51462,"wally.shp",dv,224,204,160
  34. 275 sys51459:gosub600
  35. 280 sys51459
  36. 290 m$="[196]isplay picture again":gosub500
  37. 300 gosub600:ifa$="q"then40000
  38. 305 poke252,224:poke253,204:poke254,160
  39. 310 sys51459:gosub600
  40. 320 sys51459
  41. 330 m$="[196]emo is over. [212]hank you.":gosub700
  42. 340 gosub600:goto40000
  43. 500 sysml+30,0,39,0,24,160,5:sysml+30,5,34,5,19,160,2
  44. 510 print"";:sysml+30,6,33,10,14,160,6:sysml+27,11,m$
  45. 520 sysml+27,13,"[208]ress any key.  [209] - quit"
  46. 550 return
  47. 600 poke198,0
  48. 610 geta$:ifa$=""then610
  49. 620 return
  50. 700 sysml+30,0,39,0,24,160,5:sysml+30,5,34,5,19,160,2
  51. 710 print"";:sysml+30,6,33,10,14,160,6:sysml+27,11,m$
  52. 720 sysml+27,13,"[193] - [193]gain   [209] - [209]uit"
  53. 730 poke198,0
  54. 740 sysml+60,"aq"
  55. 750 ifi%=1thenrun
  56. 760 ifi%=2then40000
  57. 770 goto740
  58. 1000 end
  59. 10000 d=peek(186):n$="0:b.unpacker demo":open15,d,15,"s"+n$:close15:saven$,d:end
  60. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  61. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  62. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  63. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  64. 40040 close2:open2,i,2:close2:ifstthen40060
  65. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  66. 40060 next:return
  67. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  68. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  69. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  70.